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RMSREPORT = Handle Output for ANALYZE/RMS_FILE 16- -Sep-1984 99: 19: 249 AX-11 Bliss-32 V4.0 Page 
14-Sep-1984 11:53:01 ANALYZ.SRC RMSREPORT. 5 2:1 
0001 Q title "RMSREPORT = Handle Output for ANALYZE/RMS_FILE' 
Bons 0 module rmsreport ( 
0005 1 ident='V04-000') = begin 
0004 1 
0005 1! 
0006 1 BPRS RSSESELELESE SEE SESE EET ETE ECE E SESE SSCS ESSE SESE CASE CCS C ESSEC ESSE CASS aa 
0007 1 !« 
0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
Bate ' 7 ALL RIGHTS RESERVED. * 
.* ® 
Batg 1 !® THIS SOFTWARE . cya as A LICENSE AND MAY BE USED AND COPIED * 
001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTH * 
0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
Bole : '® TRANSFERRED. * 
'® 7 
0019 1 !* THE gt te IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
bose : .* CORPORATION. * 
‘® * 
0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
Ose 1 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0025 1! ’ 
0026 1 !* * 
0027 1 LRA AAR EAR EATER AREA EAE EEE TERETE REET AKEKEREE ERE 
0028 1! 
0029 1 
0030 1 !++ 
Boas : Facility: VAX/VMS Analyze Facility, Handle Reports for ANALYZE/RMS_FILE 
0033 1 ! Abstract: This module is responsible for all reports from the 
0034 1! ANALYZE/RMS_FILE command. Reports can be routed to a file 
0035 1! and/or the terminal. 
0036 1! 
0037 1! 3 
0038 1 ! Environment: 
0039 1! 
se ; Author: Paul C. Anagnostopoulos, Creation Date: 18 February 1981 
0042 1 | Modified By: 
0043 1! 
0044 1! v03-009 ay Me Donald G. Blair 14-Jun-1984 
0045 1! . OPENOUT error, rather than print the file 
0046 1! spec from the /OUT qualifier (which may be null), print 
9h 4 : e expanded file spec derived therefrom, 
0049 1! v03-008 DGB0045 Donald G. Bla 08-May-1984 
0050 1! Incorporate the routine ane sexir WITH, STATUS into the main 
0051 1! routine ANL$RMS and add handling. for ANL$WORST_ERROR 
0052 1! to ANLS$FORMAT_ERROR as part of fixing ANALYZRMS so 
O827 it returns status correctly. 
0055 1! v03-007 RRBO003 Rowland R. Bradley T=Jan-1984 
sis} } Correct ‘value required a any in ANL SEXIT WITH STATUS 
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0038 : V03=006 PCA1012 Paul C. Anagnostopoulos 6-Apr-1983 
tb : Add support for /NOOUTPUT qualifier. 

0061 1! vO3-005 PCA1011 Paul C, .Anagnostopoulos 1-Apr-1983 
Rng . 7 Change the message prefix to ANLRMS$_ to ensure that 
0065 1! message symbols are unique across alT ANALYZEs. This 
pee : is necessitated by the new merged message files. 

0066 1: v03-004 PCA1001 Paul C. Anagnostopoulos 4=-Nov-1982 
0067 1! Display the global buffer count for all files, not 
0068 1! ist relative and indexed ones. 

34 ! dd code to support the new /SUMMARY mode. 

0071 1! v03-003 PCA0031 Paul Anagnostopoulos 24-Mar-1982 
Bag : Fix error messages so they use the correct STV value. 
0074 1! vO3-002 PCAQOI2 Paul Anagnostopoulos 16-Mar-1982 
Babe : Remove maximum record size restriction on report file. 
0077 1: v03-001 PCA0011 Paul Anagnostopoulos 16-Mar-1982 
0078 1! Include new global buffer count when formatting the 
44 ; report of the file attribute area. 
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8 0081 1 %sbttl "Module Declarations’ 

8 set] ee , : 

84 B08 1 ! Libraries and Requires: 

85 084 1! 

86 0085 1 . ; 

87 0086 1 Library ‘Lib’; 

88 0087 1 require ‘rmsreq'; 

89 0596 1 

90 0597 1! 

91 0598 1 ! Table of Contents: 

92 0599 1! 

93 0600 1 : 

94 0601 1 forward routine : 

95 0602 1 anl$prepare_report_file: novalue, 

96 0603 1 oni groper t eee: novalue, 

97 0604 1 anl$format_line: novalue, 

98 0605 1 anl$format_skip: novalue, 

99 0606 1 anl$format_error: novalue, 

100 0607 1 anl$error_count: novalue, 

101 0608 1 anl$format_flags: novalue, 

102 0609 1 anl$format_hex: novalue, 

103 0610 1 anl$format_protection_mask: novalue, 

104 0611 1 anl$format_file_attributes: novalue; 

105 0612 1 

106 0613 7} 

107 0614 1 ! External References: 

108 0615 1! 
109 0616 1 
110 0617 1 external routine ‘ 
111 0618 1 cli$get_value: addressing_mode(general), 
lle 0619 1 cli$present: addressing_mode(general), 
113 0620 1 Lib$lp_lines: addressing_mode (general) 
114 0621 1 Lib$put_output: oferene ip mode’ eneral), 
115 0622 1 str$trim: addressing_mode(general); 
116 06235 1 
117 0624 1 external 
118 0625 1 anl$gb_mode: byte 
119 0626 1 anl$gl_fat: ref blockl bytel; 

120 0627 1 
121 0628 1! 7 

122 0629 1 ! Own Variables: 

123 0630 1: : 

124 0631 1 ! To create the renert file, we need a RAB, FAB, and NAM block. We also 
125 0632 1 ! need a second NAM block to act as the related NAM block. 
126 0633 1 

127 0634 1 own i 

128 0635 1 own_described_buffer (expanded spec ,nam$c_maxrss), 
129 0636 1 related_resulftant_spec: blockCnam$c_maxrSs,byte], 
+ 5 ott ! related_expanded_Spec: block(nam$c_maxrss,byteJ, 
132 P 0639 1 related_nam: $nam(esa=related_expanded_spec, 

133 P 0640 1 ess=nam$c_maxrss 

134 P 0641 1 rsa=related_resultant_spec, 

135 0642 1 rss=nam$c_maxrss), 

136 064 1 

137 P 0644 1 report_nam: $nam(rlf=related_nam, 

138 P 0645 1 esazexpanded_spec+8, 
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poe : ess=nam$c_maxrss), 

Rees : own_described_buffer(report_file_spec,nam$c_maxrss), 
0650 1 report_fab: $fab(fac=put, 

0651 1 fop=ofp, 

B026 1 nam=report_nam, 

0655 1 org=seq, 

0654 1 rat=cr, 

0655 1 rfm=var), 

0656 1 

0657 1 report_rab: $rab(fab=report_fab, 

0658 1 rac=seq); 

0659 1 g : 

ore : ! The following variables are needed to format the report. 
0662 1 own 

0665 1 generating_report: hy bad 

0664 1 report_heading msg: 

0665 1 own_desScribed_buf orlinput.. file_spec,nam$c_maxrss), 
0666 1 page. number: Tong, 

see4 : ine_counter: signed Long; 

0669 1 ! We need some variables for keeping track of errors. One tells us where 
pee .: ' the analysis report is going. We also count the number of errors. 
0672 1 own 

06735 1 report_to_file: byt 

0674 #1 error_Count: long” inftial(0); 
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> #169 0575 1 %sbttl "ANLSPREPARE_REPORT_FILE = Prepare Report File’ 
; 170 0676 1 !++ ; : 
wea 0677 1 ! Functional Description: ; 
; ive 0678 1! This routine is called whenever we begin the analysis of a new 
:; iv 0679 1! file. On the first call, it creates a report file to receive 
: (174 0680 1! the analysis. On subsequent calls, if any, it just starts a new 
5 75 0681 1! report in the file. 
> «176 0682 1! 
s 177 06835 1 ! Formal Parameters: 
: 178 0684 1! heading_msg An optional message code specifying the report 
> #179 0685 1! 2 page heading message. d 7 : 
: 190 pone : input spec he resultant spec of the input file we are analyzing. 
s . 162 0688 1! Implicit Inputs: 
; «(183 0689 1! global data 
‘3 186 0690 1! re 
; «#185 0691 1°! Implicit Outputs: 
; «186 0692 1! giobal data 
: 187 0693 1! 
; «4188 0694 1 ! Returned Value: 
3- 199 0695 1: none 
3: 190 0696 1! 
: «191 0697 1! Side Effects: 
: 192 0698 1! 
3 «6193 0699 1 !-- 
3 (194 0700 1 
s 195 0701 #1 ‘ ; } 
: ise O08 § global routine anl$prepare_report_file(heading_msg,input_spec): novalue = begin 
: 198 0704 2 bind ‘ oe 
: 199 0705 2 input _spec_dsc = .input_spec: descriptor; 
; 200 0706 2 
z-.207 0707 2 own ; ag ag 
‘3 202 0708 2 first_call: byte initial (true); 
is 205 0709 2 
; 204 0710 2 local 
is” 205 0711 2 status: long; 
: 206 pris 2 
.:. 200 = 0713 2 
: 208 0714 2 : 5 e : 
s 344 Bre $ ! Save the input file spec for use in the report page headings. 
: 2 0717 2 input . file spect lon] = ,input_spec_dscLlen]; ; 
: $i§ O78 § ch$move(. input_spec_dscllenJ,-input_spec_dsc(ptrj, .input_file_spec(ptr]); 
: sis 3730 § ! See if we are to generate a report. If not, we can just leave. 
; 216 6756 2 generating_report = cli$present(describe('OUTPUT')); 
: 27 0723 2 if not .generating_report then 
: 2 0724 2 return; 
3; 219 0725 § J : ; 
; 220 0726 : If this is the first call, then we need to create the report file and 
: $s! 3444 2 ! prepare for one or more analysis reports. 
: 288 $494 if .first call then ( 
5 225 0731 3 ! We begin by obtaining the value of the /OUTPUT qualifier. This will 
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! tell us the name of the desired report file. Trim the name for use 
i in error messages. 


report _to_file = cli$get_value(describe(*OUTPUT') ,report_ is 5. spec); 
str$trim(report_file_spec,report_file_spec, report_file_spec); 


! Now we split up depending on the mode of operation. 
selectoneu .anl$gb_mode of set 


Canl$k check, 
anl$k_ “statistics, 
anl$k_summary]: 


! In these modes, the user poeta the name of the 

i report file, and we use ANALYZE.ANL as the defaults 

i If the user didn't include a value on the /OUTPUT uni itier, 
! then we just put the report on the terminal. 


if .report_to_file then ( 
report_fabCfab$l_fna] 
report_fabLfab$b_fns] 
report_fab{fab$l_dna] 
report_fablfab$b_dnsJ 

) else ( 
report_fabCfab$l_fna] 
report_fablfab$b_fnsJ 


BREE EE EWN 


OOWNA VSWR | O OONAVE WHO OONAUE WN —OOOND 


-report_file_spec(ptr]; 
-report_ files specClenJ; 
uplit byte('ANALYZE.ANL'); 


as 


veers byte("SYSSOUTPUT'); 
d; 
Canl$k_fdlj: 
! In this mode, the user specifies the name of the FDL 
file, we use .FDL as the default, and we use a related 


1 
1 
! mame equal to the input file spec. This produces the 
standard related name situation where the output file 
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$0) ! has the same name as the input file. 

2635 ! To parse the input file name, we use the report FAB 
264 770 ' temporarily so we can do a SPARSE and a $SEARCH into 
sc? aa ! the related NAM block. 

267 773 (report_fabCfab$l_fna] = .input_spec_dsc(ptrj; 

268 774 report_Tfablfab$b_fns] = . input_Spec_dscLlen]; 

269 775 report_fabLfab$l-nam] = related_nam; 

270 776 status = $parse(fab=report_fab); 

271 777 check (,status, .Status); 

272 778 status = $search(fab=re ort. fab); 

273 779 check (,status, .status 

274 780 

275 781 ' Now we can set up the blocks for creation of the report file. 
$f8 76 ! The FAB specifies output file parse, as required. 
278 784 report_fab(fab$l_fna] = .report_file cspec lend: 

279 785 report_fab(fab$b_fns] = .report_ file. spec(len]; 

280 786 report_fablfab$l"dna] = uplit byte('? 

281 787 report_fab(fab$b_dns] = 

282 788 report_fablfab$l"nam] = report_nam;); 
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; 23 0789 : ; 
> 284 0790 Canl$k_interactive): 
> 285 0791 
> 236 1424 3 ! In this mode, the user specifies the name of the 
S$ gor 0793 3 ' transcipt tile, and we use ANALYZE.ANL as the defaults 
: 288 0794 3 i If the user didn't include a value on the /OUTPUT qualifier, 
3; 289 0795 3 i then we don't t produce a transcript. 
: 290 0796 3 : 
; avi 0797 4 if .report_to_file then 
5 eve 0798 4 report_fab(fab$l_fna] = .report_file_spec(ptr]; 
3 a9 0799 4 report_fabLfab$b_fns] = .report_ file. specLlen]J; 
> 294 0800 4 report_ fob) tape. dna} = uplit byte(' ENALYZE.. ANL"); 
: 295 0801 4 report_fablfab$b_dns] = 
; 296 0802 3 ) else 
; 297 0803 3 return; 
; 298 0804 3 
: 299 0805 3 tes; 
: 300 0806 3 ; 
; 301 0807 3 ' Now we can create the report file and connect the RAB. 
s 302 0808 3 
; .. 305 0809 3 status = $create(fab=report fab) 
: 304 0810 3 expanded_spec(len] = .report_ nantnan$b_ esl]; 
s 305 0811 3 check (.Status, anirms $_openout,1,expanded_ Spec,.status,. report_fablfab$l_stv]); 
: 306 0812 3 status = $connect(rat=report_ rab): 
;s wr 08135 3 check (.status, .stactus); 
: 308 0814 3 
; 309 0815 $ ! Save the heading message code. 
: iy OBI? 8 headi headi 
: report_heading_msg = .heading_msg; 
; 312 0818 3 ; 
; 633 0819 3 first_call = false; 
3 «(34 0820 2); 
s 315 0821 2 F : 
: 315 tt .? ! Begin the report by resetting the page number and starting a new page. 
; «318 0824 2p page. number = 0; 
: Ss 0825 2 anl$report_ Sa, 5 
s 320 0826 2 
s Set 0827 2 return; 
s S22 0828 2 
3; 325 0829 1 end: 


-TITLE RMSREPORT Meee itt - Handle Output for ANALYZE 
-IDENT \vV04-000\ hg 
-PSECT S$PLIT$,NOWRT,NOEXE ,2 


54 55 50 54 55 4F Q0000 P.AAB: .ASCII \OUTPUT\ : 
00006 -BLKB 2 

00000006 00008 P.AAA: .LONG 6 : 

00000000° 0000¢ -ADDRESS P.AAB : 

54 55 50 54 55 4F Q0010 P.AAD: .ASCII] \OUTPUT\ : 
Boots -BLKB 2 

00000006 00018 P.AAC: .LONG 6 : 

00000000" 0001C -ADDRESS P.AAD : 
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“1D 
-EXTRN ANLRMS$~ IDX 
.EXTRN ANLRMS$~IDXKEYKEYSZ 
EXTRN ANLRINS$"1DXKEYNAME 
EXTRN ANLRMS$~IDXKEYNEXT 
-EXTRN ANLRMS$~ DAKE YMINREC 
-EXTRN ANLRMS$~IDXKEYNULL 
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-EXTRN ANLRMS$~IDXKEYROOTLVL 
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-EXTRN ANLRMS$~IDXKEYSEGS 
-EXTRN ANLRMSS"IDXKEYSIZES 
SEXTRN ANLRMS$—1DXPR IMRE C 
-EXTRN ANLRMS$~IDXPRIMRECFLAGS 
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v04-600 ANLSPREPARE_REPORT_FILE = Prepare Report File 1e-8ep-1984 00:18:55 ANALYZ.SRCJRMSREPORT .B32;1 age 3) 
.EXTRN ANL RMS. FACILITY 
sEXTRN CLISGET-VALUE, CLISPRESENT 
-EXTRN LIBSLP cINES. IB$PUT_OUTPUT 
-EXTRN STRSTRIM, ANLS$GB_MODE 
-EXTRN ANLSGL_FAT, SYSS$PARSE 
“EXTRN SYS$SEARCH, SYS$CREATE 
SEXTRN SYSS$CONNECT 
.PSECT $CODE$,NOWRT,2 
03FC 00000 .ENTRY ROC aeRO” REPORT_FILE, Save R2,R3,R4,R5,- ; 0702 
59 0000" CF 9E 00002 MOVAB : 
58 000000006 00 9€ 00007 MOVAB LiBSsichAL : 
57 0000" CF 9E OO00E MOVAB REPORT_FILE Sec, R7 : 
56 08 AC DO 00013 MOVL INPUT_ 4 “R : 0705 
01A4 «C7 66 BO 00017 MOVW (R6), INPUT_FILE_S : 0717 
01A8 =o? 04 86 66 28 0001C MOVC3 (R6). a4(R6S, hae _FILE_SPEC+4 : 0718 
59 DD 00023 PUSHL 9 : 0722 
000000006 00 01 FB 00025 CALLS #1, CLISPRESENT : 
019¢ (7 50 90 0002¢ MOVB RO, GENERATING REPORT : 
01 019¢ C7 €8 00031 BLBS  GENERATING_REPORT, : 0723 
04 00036 RET : 
03 02BC C7 £8 00037 1$: BLBS  FIRST_CALL, 2$ : 0729 
0125 31 0003C BRW 14$ : 
57 DD 0003F 28: PUSHL + 0735 
10 AQ 9F 00041 PUSHAB P.AAC : 
000000006 00 02 FB 00044 CALLS Wo. CLISGET_VALUE ; 
02B4 (7 50 90 00048 MOVB RO, REPORT_TO_FILE ; 
57 DD 00050 PUSHL 7 : 0736 
57 DD 00052 PUSHL R? : 
57 DD 00054 PUSHL R7 : 
000000006 00 03 FB 00056 CALLS #3, STRSTRIM : 
50 00006 CF 9A 0005D MOVZBL ANLS$GB_MODE, RO + 0740 
01 50 91 00062 CMPB. SRO, #1~ : 0742 
0A 13 00065 BEQL «Ss 3 ; 
04 50 91 00067 CMPB —seRO, #4 F 
2B 1F OO06A BLSSU F 
05 50 91 0006C CMPB es «RO, #5 ; 
26 1A 0006F BGTRU 5$ ; 
14 0284 (C7 €9 00071 38: BLBC REPORT _ TO FILE, 4$ > 0751 
0134 (C7 04 A? DO 00076 MOVL REPORT_FICE_SPEC+4, REPORT _FAB+44 : 0752 
013c = C7 67 90 0007C¢ MOVB REPORT “Fite “SPEC, REPORT_FAB+52 : 6753 
0138 «67 18 Ad 9E 00081 MOVAB P.AAE, REPORT_FAB+45 > 0754 
0089 31 00087 BRW 10$ : 0755 
0134 c? 23 AD 99E OO0BA 4S: MOVAB P.AAF, REPORT_FAB+44 : 0757 
013¢ 7 0A 90 00090 MOVB Wid. REPORT_FAB+52 : 0758 
5F 11 00095 BRB 4 : 0751 
02 50 91 00097 5$: CMPBeéRO, #2 : 0761 
5¢ 12 0009A BNEQ 9 ; 
0134 (7 04 Ab p0 0009¢ MOVL  4(R6), REPORT FAB+44 : 0773 
013c = ¢7 66 90 000A MOVB (R6), REPORT_FAB+5S2 > 0774 
0130 «6¢7 FF4O 6C?:sO9E O00A VAB RELATED NAM, "REPORT _FAB+40 > 0775 
0108 C7 9F OOOAE PUSHAB REPORT FAB : 0776 
000000006 00 01 FB 000B2 CALLS SYSSPARSE ; 
52 50 00 00089 MOVL 4 STAT ; 
05 52 £8 000BC BLBS _— STATUS, $3 : 0777 
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M 2 
Rsbttl *ANLSREPORT_PAGE = Eject Page in Report’ 
i Functional Description: 


his routine is called to eject the page in a report and print 
the heading on the new page. 


Formal Parameters: 
none 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


Oe a et 


global routine anl$report_page: novalue = begin 


! Since we are starting a new page, reset the Line counter. 
Line_counter = Lib$Sip_lines() = 7; 


! Now we can eject and print the heading Line. Don't do this if the 
' current heading message is zero - page headers are not desired. 


if .report_heading_msg nequ 0 then ( 
anl$formatzline(=1_0 


increment (page number) ; 


anl$format_lineTt-1,0,.report_heading_msg,0,.page_number) ; 
anl$format_line(-1,0,anlrms$_anything, input_file_ spec); 
anl$format_skip(-15; 

. anl$format_skip(-1); 

return; 

end; 


-PSECT SPLITS,NOWRT ,NOEXE .2 


OC 00044 P.AAJ: .ASCII <12> 
00045 -BLKB 
00000001 00048 P.AAI: .LONG 
00000000° 0004¢ «ADDRESS P.AAJ 


1 CANALYZ.SR 


-anlrms$_anything,describe(%char(formfeed))); 


r 
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 RMSREPORT RMSREPORT = Handle Output for ANALYZE/RMS_FILE 16-Sep-1984 00:10:49 AX-11_Bliss-32 V4.0-74 Page 18 
v04-000 ANLSREPORT_PAGE = Eject Page in Report —~ 12280871382 $9 559:61 LANALYZ-SRCIRMSREPORT.B 2:1 . (4) 
«PSECT S$CODE$,NOWRT,2 

000C 00000 ENTRY ANLSREPORT_PAGE, Save R2,R3 ; 0853 

53 OOOOvV CF 9E Bp O86 MOVAB ANLSFORMAT LINE, 3 

52 00000000G 8F Dd 0000 MOVL #ANLRMS$_ARYTHING, R2 3 
00000000G 00 00 FB BR OOE CALLS 40, 18s P_LINES ; 0858 

0000" CF F9 AO 9E 0001 MOVAB =7(RO), LINE COUNTER ; 
0000"' CF D5 0001B TSTL REPORT_HEADING_MSG 3 0863 

42 13 OOO1F BEQL =:'1$ : 
0000' gf 9F 00021 PUSHAB P.AAI ; 0864 

2 1 00025 PUSHL R 3 

7E D4 00027 CLRL -(SP) : 

| 7E 01 CE 00029 MNEGL #1, =(SP) : 

63 04 FB 0002C CALLS #4, ANLSFORMAT_LINE 3 
0000' CF 06 On0et INCL PAGE _NUMBER : 0866 
0000" CF DD 00033 PUSHL PAGE NUMBER ; 0867 

7E D4 00037 CLRL = (SPJ : 

0000" CF DD 00039 PUSHL REPORT_HEADING_MSG : 

7E D4 0003D CLRL -(SP) : 

7E 01 CE 0003F MNEGL #1, =(SP) : 

63 05 FB 00042 CALLS #5, ANLSFORMAT_LINE 5 
0000" CF 9F 00045 PUSHAB INPUT_FILE_SPET ; 0868 

52 DD 00049 PUSHL R2 3 

7E 04 00048 CLRL =(§ ; 

7E 01 CE 0004D MNEGL » 7(SP) 3 

63 04 Fe 00050 CALLS #4, ANLSFORMAT_LINE 3 
7E 01 CE 00053 MNEGL #1, =(SP) : 0869 

0O00OV CF 01 FB 00056 CALLS #1, ANLSFORMAT_SKIP 3 
E 01 CE 00058 MNEGL #1, - ; 0870 

0000v CF 01 FB O005E CALLS #1, ANLSFORMAT_SKIP : 
04 00065 1$: RET : 0875 


; Routine Size: 100 bytes, Routine Base: $CODE$ + 016E 
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-v04-000 ANLSFORMAT_LINE = Format a Line of the Report 14-Sep-1984 11:53:01 CANALYZ.S Reina RMSREPORT .B32;1 
: 376 pare 1 7 Asbetl *"ANLSFORMAT_LINE = Format a Line of the Report’ 

> 374 0878 1! "Funct tenet Description: 

i: 30 0879 1: This routine is called to format a Line and place it in the current 

a 3/8 Beet ; report file. It also goes to the terminal if this is an interactive 
i 378 0882 1 | eres 

li; 379 0883 1 | Formal Parameters: 

i; 380 0884 1 | widow.control Controls widowing as follows: 

‘fg oe 0885 1 | positive specifies number of Lines that 
is 382 0886 1 ' must remain on the page. 

3. 385 0887 1! zero | doesn't matter how many lines. 
> «384 0886 1 | negative Same as zero, but don't send 

; 555 0889 1! the Line to the screen. 

; 386 0890 1 | indent_level The number of tab stops to indent the Line. 

3 sof +94 : : template_msg — peates code of the message defining the Line 

; : empla 

; a4 aad : faol.. $FAO arguments to fill into the message. 

: 391 0895 1! Implicit Inputs: 

; $08 4343 ; : global data 

> 394 0898 1 ! Implicit Outputs: 

: 4] 1 , global data 

F 397 0901 Returned Value: 

iz non 
i; 399 0903 1! 
3 res Sone : & Side Effects: 

: 402 0906 1 i- 

: 403 0907 1 

> 404 0908 1 : ; 
: rsd 3544 § global routine anl$format_line(widow_control,indent_level,template_msg,faol): novalue = begin 
: 407 0911 2 local 

; re bos $ status: long; 

: 410 0914 2 

; +3 ot? ! If we aren't generating a report, then drop this Line in the bit bucket. 

: oiz gett § if not rill ee hemi then 

: return; 

> 6415 0919 2 

5 25 b959 $ ! First we obtain the text of the template message. 

; a 0922 3 begin 

; 41 0923 3 local 

: rei b3ss ; local_described_buffer(template_buf ,nam$c_maxrss); 

: 422 P $358 3 status = Sqetnagtines id=. tent ate mS 

s 4625 P O3se ; peat en=template_ buf. 

» 424 0928 adr=tem bate. “buf. 

: 425 0929 3 flags-tb°0 01° 

: ry boas ; check (.status,.status); 
3 428 0932 3 ! Now we can plug the $FAO arguments into the message template. 
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ANLSFORMAT_LINE = Format a Line of the Report 14-Sep-1984 11:53:01 CANALYZ.SRCJRMSREPORT.B52;1 
0933 3 3 
0934 4 begin 
0935 4 local ; 
boas 2 local_described_buffer(result_buf,132); 
0938 4 status = $faol(ctrstr=template_buf, 
0939 4 outlen=result_buf, 
0940 4 outbuf=result_buf, 
0941 4 prmlst=faol); 
bees 2 check (.status,.status); 
Meee : ! Prefix the resulting text with enough tabs to effect the indentation. 
0946 4 ch$move(.result_bufllen],.result_bufCptr], .result_buflCptrJ+.indent_level); 
0947 4 result _bufflen] = .result_bufllen] + .indent_level; 
0948 ch$filT(Xchar(tab), .indent_level,.result_buflptrJ); 
0950 4 ! There are two cases for widow control. If zero, then only eject if we 
0951 4 ! are out of Lines. If positive, then eject if there are not said number 
bots : ! of Lines left on the page. 
0954 4 if (.widow_control leq 0 and .lLine_counter leq 0) or 
0955 4 (.widow control geq 1 and .line_counter lss .widow_control) then 
Bees : anl$report_page(); 
0958 « ! if there is a current report file, put the line into it. Also account 
0484 : ! for the Line on the page. 
0961 5 if .report_rabCrab$w_isi] negu 0 then ( 
0962 5 report_rabCrab$w_rsz] = .result_bufClen]; 
0963 5 report_rabCrab$l_rbfJ] = .result_buf(ptr]; 
0964 5 status = $put(rab=report_rab); ; 
0965 5 check (.status, anlrms$ _writeerr,1,report_file_spec,.status,.report_rabCrab$l_stv]); 
0966 5 decrement (lLine_counter); 
0967 4); 
0968 4 : : 
0969 4 ! If we are doing an interactive session, also put the Line onto the screen. 
bans ! However, Lines with widow control of -! are not displayed. 
0972 5 if .anl$gb_mode eqlu anl$k_interactive and .widow_control geq 0 then ( 
0973 5 Status = lLib$put_output(result_buf); 
0974 5 check (.status, .status); 
0975 4); 
0976 4 
0977 3 end; 
0978 2 end; 
0979 2 
0980 2 return; 
0981 2 
0982 1 end; 


~-EXTRN SYS$GETMSG, SYSS$FAOL 
~EXTRN = SYS$PUT 


01FC 00000 -ENTRY ANLSFORMAT_LINE, Save R2,R3,R4,R5,R6,R7,R8 


roe 


; 0909 
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58 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R8 : 
5 0000' CF 9€ 99009 MOVAB LINE_COUNTER, R7 : 
5E FE6C ce oe S005 MOVAB <=404TSP), : 
01 FEEC =6C Fs 90013 BLBS GENERATING_REPORT, 1$ + 0917 
00sec CE FF 8F 9A 00019 1$: MOVZBL #255, TEMPLATE_BUF + 0924 
0090 CE 0094 CE 9E 0001F MOVAB TEMPLATE _BUF+8> TEMPLATE_BUF +4 : 
7E 01 7D 00026 Ova = #1, =(SPY + 0929 
0094 CE 9F 00029 PUSHAB TEMPLATE_BUF : 
0098 CE 9F 0002D PUSHAB TEMPLATE BUF : 
0C AC DD 00031 PUSHL TEMPLATE-MSG : 
000000006 00 92 FB 00034 CALLS #5, SYSSGETMSG : 
56 0 dO 00038 MOVL RO, STATUS : 
05 56 £8 0003E BLBS STATUS, 2$ : 0930 
56 DD 00041 PUSHL STATUS : 
68 01 FB 00043 CALLS #1, LIBSSIGNAL : 
6E 84 8F 9A 00046 2$: MOVZBL #132, RESULT_BUF > 0936 
04 AE 08 AE 9E 0004A MOVAB  RESULT_BUF+8> RESULT_BUF +4 : 
10 AC 9F O004F PUSHAB FAO1 + 0941 
04 AE 9F 00052 PUSHAB RESULT_BUF : 
08 AE 9F 00055 PUSHAB RESULT BUF : 
0098 CE 9F 00058 PUSHAB TEMPLATE _BUF : 
000000006 00 04 FB 0005C CALLS #4, SYSS$FAOL : 
56 50 DO 00063 MOVL RO, STATUS : 
05 56 £8 00066 BLBS STATUS, 3$ + 0942 
56 DD 00069 PUSHL STATUS : 
68 01 FB 0006B CALLS #1, LIBSSIGNAL : 
50 04 AE 08 AC C1 OO06E 3$: ADDL3 INDENT_LEVEL, RESULT _BUF+4, RO : 0946 
60 04 BE 6E 28 00074 MOVC3 RESULT"BUF, @RESULT_BUF+4, (RO) : 
6£ 08 AC AO 00079 ADDW2 INDENT"LEVEL, RESULT_B > 0947 
08 Ac 09 6E£ a“ 00 2c 90070 MOVCS #0, (SP), #9, INDENTLEVEL, @RESULT_BUF+4 ; 0948 
52 04 AC dO 00085 MOVL § WIDOW_CONTROL, R2 > 0954 
04 14 00089 BGTR 4$ : 
67 D5 00088 TSTL | LINE_COUNTER : 
09 15 0008D BLEQ 5$ : 
2 D5 OOOBF 4$: TSTL R2 > 0955 
OA 15 00091 BLEQ 6$ ; 
52 67 D1 00093 CMPL = LINE_COUNTER, R2 : 
05 18 00096 BGEQ 6$ : 
FEFF OCF 00 FB 00098 5$: CALLS #0, ANLSREPORT_PAGE : 0956 
FEAA C7 B5 0009D 68: TSTW  REPORT_RAB+2 > 0961 
33 13 QOOA1 BEQL 3 
FECA C7 6— BO 000A3 MOVW § RESULT_BUF, REPORT_RAB+34 : 0962 
FEDO (7 04 AE DO 000A8 MOVL - RESULTBUF #4, REPORT_RAB+40 : 0963 
FEAS C7? 9F OOOAE PUSHAB REPORT-RAB : 0964 
000000006 00 01 FB 000B2 CALLS #1, SYS$PUT : 
56 50 pO 00089 MOVL RO, STATUS : 
15 56 £8 OOOBC LBS ATUS > 0965 
FEBS C7 DD O00BF PUSHL REPORT. RAB+12 : 
56 DD 000C3 USHL ATUS ; 
Fp50.—sC7—s«éO9F:s«O00CS PUSHAB REPORT_FILE_SPEC ; 
01 dd 000C9 PUSHL : 
00B110D4 8F ODD 000CB PUSHL #11604180 F 
68 05 FB 00001 CALLS #5, LIBSSIGNAL ; 
67 D7 000D4 7$: DECL LINE COUNTER : 0966 
03 0000G CF 91 000D6 8$: CMPB = ANLSGB_MODE, #3 : 0972 
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18 lg 00008 BNEQ 9$ : 

52 D 4 TSTL R2 3 

14 19 QOODF BLSS 9$ : 
5E DD O00E1 PUSHL SP ; 0973 

000000006 00 4 FB QO0E3 CALLS #1, LIBSPUT_OUTPUT : 

56 0 DO QOOEA MOVL RO, STATUS 3 
05 56 £8 QOOED BLBS STATUS, 9$ 3 0974 

56 DD OO00FO PUSHL STATUS ; 

68 01 FB Boers CALLS #1, LIBSSIGNAL 3 
04 OO0FS 9$: RET ; 0982 

|; Routine Size: 246 bytes, Routine Base: $CODE$ + 01D2 


RMSREPORT 
00 


V04- 


wages 
—OO0ONO 


; Routine Size: 
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RMSREPORT = Handle Output for ANALYZE/RMS_FILE 16-Sep-1984 00: +19: 149 AX-11 ei ss-32 V4.0-7 
ANLSFORMAT_SKIP = Skip a Line in Report 14-Sep-1984 11:55:01 ANALYZ.S Rea MSREP ORT. 8 2;1 


4 1% Rsbttl *ANLSFORMAT_SKIP = Skip a Line in Report’ 

0985 1: “functtonet Description: 

4 : This routine can be called to skip a Line in the current report. 
0988 1°! Formal Parameters: 

4434 : widow control See ANLSFORMAT_LINE 

0991 1°! Implicit Inputs: 

0992 1! global data 

0993 1! a 

0994 1 ! Implicit Outputs: 

0995 1! global data 

0996 1! 

0997 1 ! Returned Value: 

0998 1! n 

77.37 

1000 1°! Side Effects: 

1001 1! 

1002 1 !-- 

1003 1 

1004 1 

1ORe 3 global routine anl$format_skip(widow_controt): novalue = begin 
1007 2 . : 

1o08 § ! Just call FORMAT_LINE with a blank Line. 

ies § anl$format_line(.widow_control,0,anirms$_anything,describe('')); 
1012 2 return; 

1013 2 

1014 1 end; 


-PSECT SPLITS,NOWRT,NOEXE,2 


00050 P.AAL: .BLKB QO 
4 4444 00050 P.AAK: .LONG 0 

00000000" 00054 -ADDRESS P.AAL 

-PSECT S$CODES,NOWRT,2 
0000 00000 ENTRY yt aa SKIP, Save nothing 
0000" CF 9F 00002 PUSHAB P. 
000000006 8F DD 00006 PUSHL PANLRMSS_ ANYTHING 
7E 04 Q000C CLRL -(SP) 
04 AC DD QOO0E PUSHL WIDOW CONTROL 
FEFS =F 04 FB 00011 CALLS #4, ANL SF ORMAT aLINE 
04 00016 RET 


23 bytes, Routine Base: $CODE$ + 02C8 


Pa 23 
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RMSREPORT RMSREPORT = Handle Output for ANALYZE/RMS_FILE 16-Sep-1984 00 
v04-000 ANLSFORMAT_ERROR = Put Error Message in Report 14-Sep-1984 11 
t 


Rsbttl *ANLSFORMAT_ERROR = Put Error Message in Report’ 


2:10:49 Ax-11 Blis 
19:69 


s-32 V4.0-74 Pa 4 
ANALYZE SRC IRMEREPORT. B32: 1 ve $ 


Functional Description: 
his routine is called to format an error message into the report 


file. 
Formal Parameters: 
error _msg Status code for the error message. 
faol... $FAO substitution parameters for the message. 


Implicit Inputs: 
global data 
global data 

Returned Value: 

! Side Effects: 


anl$worst_error may be set to a new condition value. 
error_count is incremented. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
; Implicit Outputs: 
i 
i 
i 
' 
i 
' 
i 
i 
ie 


global routine anl$format_error(error_msg,faol,fao2,fao3,fao4): novalue = begin 


BEER EERE & EPWANWNinonnonnonnonn nnn 2 2 a ee 


=O ODNOA NEW 3 0 ODNA MNES WN OO OONAUE WN $0 ODNAOUE WN OVD ONIOUSW 
DV Sr BS BS BS ES BS EB ANNAN NAINAIAIPPPNIPUNINPNINYDY SS 


PWaTw Tele ales eal eal eal eal al eal al ahah abeah ak alah aleal ealval eal eal eal sales ealeal eal ealealeslesleslesle.leslw. eles eae. eel eal ea w) 
ababadiadadababadiuiiabadadadababiabababad Dadblaaaaiawdaabatabababmabababiebabababababa ab ababad ad ah abe ad aad bad dead 
CSOOCCTOCOCCOCOCOSCOCOSCOOCOCOSCSSSOOOSOOCSOOOOCOCOCOOOCOCOOOCOOCOOCOOOOCOOOCOO 

ASW 0 OO NAVE WN (0 ODNOAUE WN SO OONAUES WN —"OOOnNOuU 


REPIAARPYNPGNOANNIMNYIAINYININIPONINPININPONININAINININDININININIDS 9 9 9 9 OO 9 0 2 OS SS SS SSS SS 


external 
anl$worst_error; 
bind 
flag_string = describe('tt* '); 
builtin 
actualcount; 
5 ! We case on the number of $FAO parameters and call ANLSFORMAT_LINE to 
5 ! do the work. In all cases, however, we add our own first parameter, 
: ! which is the error message flag string. 
5 case actualcount() from 1 to 5 of set : 
5 57 C1): anl$format_line(0,0,.error_msg,flag_string); 
5 58 g3: anl$format_line(0,0,.error_msg,flag_string,.faol); 
5 59 q: anl$format_line(0,0,.error_msg,flag_string,.faol,.fao2); 
5 60 3: anl$format_line(0,0,.error_msg,flag_string,.faol,.fao2,.fao3); 
z $3 $323 anl$format_line(0,0,.error_msg,flag_string,.faol,.fao2,.fao3,.fao4); 
es; 
6 6 
562 64 ! Keep track of the number of errors reported. Also keep track of 
7 3? ! most severe error which has occurred. 
565 067 increment (error_count); 
566 068 if severity level (.error_msg) gtr , 
567 069 severity_Tevel (.anl$worst_error) ! If higher than watermark 
708 tht then anl$worst_error = .error_msg; ! then set new worst error 
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1984 90:19:49 AX-11 Bliss-32 V4.0-7 
1984 11:53:01 


ANALYZ.SRCJRMSREPORT. 3 231 


-PSECT $PLIT$,NOWRT,NOEXE,2 
»ASCII \ 


«BLK 
LONG 5 
-ADDRESS P.AAN 


FLAG_STRING= 
EXTRN 


P.AAM 
ANLSWORST_ERROR 
PSECT $CODE$,NOWRT,2 


ENTRY ANLSFORMAT_ERROR, Save R2,R3,R4,R5 
MOVAB FLAG_STRING, R 
MOVAB ANLSFORMAT _LINE, RS 


OVL ERROR_MSG, R2 
CASEB’ (AP), #1, #4 
WORD 2$-1$,- 
3$-1$,- 
4$-1$,- 
5$-1$,- 
6$-1$ 
PUSHR #*M<R2,R5> 
CLRQ -(SP 
CALLS #4, ANLSFORMAT_LINE 
BRB 7$ 
PUSHL FAO1 
PUSHR #°M<R2,R5> 
CLROQ -(SP) 
CALLS a5, ANLSFORMAT_LINE 
BRB 7$ 
MOVQ FAO], -(SP) 
PUSHR WoM<R2, R5> 
CLRQ SP 
a #6, ANLSFORMAT_LINE 
MOVQ FAO2, -(SP) 
PUSHL 
PUSHR #*M<R2,R5> 
CLRQ -(SP) 
CALLS #7, ANLSFORMAT_LINE 
BRB 7$° 


MOVQ FAQ3, =(SP) 


Q SP) 
CALLS #8, ANLSFORMAT _LINE 
INCL ER RROR_ COUNT 


MOVL 2, TAP_CO 
EXT2V #3,~TMP_CODE, R1 
EXTZV #0. #1. TMPTCODE. RO 


re 


1059 


1060 


1061 


3 

RMSREPORT RMSREPORT = Handle Output for ANALYZE/RMS_FILE rbese -1984 49 AX-11 Bliss-32 V4.0-74 Page 26 
Vou 000 ANLSFORMAT_ERROR = Put Error Message in Réport 127808- 1382 99: } 701 ANALYZ.SROIR RMSREPORT .B32;1 . 3 

50 4 C4 0007 MULL #4, RO : 

51 54 ce a0078 suBt 3 By R1 : 

51 03 CO 00076 ADDL R1 : 
50 00006 CF 00 00079 MOVL ANLSWORST_ERROR, TMP_CODE + 1069 

53 50 03 00 EF 00075 EXTZ2v #0, #3, TMP_CODE, R3~ : 

50 50 01 00 EF 0008 EXTZV #0, #1, TMP_CODE, RO s 

50 04 C4 00088 MULL a4, RO’ 3 

53 50 ¢2 00088 SUBL RO, R : 

50 03 AS YE OO08E MOVAB BRB) RO : 

50 51 D1 00092 CMPL =e R71, _RO F 

05 15 00095 BLEQ 8$ : 
00006 CF 52 p0 00097 MOVL R2, ANL$WORST_ERROR : 1070 
04 0009C 8$: RET + 1074 


|; Routine Size: 157 bytes, Routine Base: $CODE$ + O2DF 
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RMSREPORT RMSREPORT = Handle Output for ANALYZE/RMS_FILE 16-Sep-1984 00:10:49 AX-11 Bliss-32 V4.0-74 P 7 
vou~000 ANLSERROR_COUNT = Report Count of Errors 1eagep=19B 11:59:01 FANALYZ°SRESRHSREPORT 692: 1 age 8) 
: ere 102? ! Rsbttl "ANLSERROR_COUNT = Report Count of Errors’ 

; 576 1077 1! Functional Description: 

3 (OCT 1078 1! This routine is called to print a line telling how many errors 

: ef8 O08 : were discovered during the analysis. 

: 280 193 : Formal Parameters: 

: : non 

: 582 1088} | files 

3 383 1084 1 ! Implicit Inputs: 

: 280 1382 ; global data 

: 586 1087 1! Implicit Outputs: 

: 344 bs : } global data 

; 34 34 ; Returned Value: 

591 1092 1 ee 

: 236 \eez ; } Side Effects: 

: 59% 1095 1 i-= 

: 1096 1 

> 596 1097 1 

: read Hh 4 $ global routine anl$error_count: novalue = begin 

; 599 1100 2 

; oy 1100 § ! First we print the error count in the report. 

: 602 1103 2 if .error_count eqlu 0 then 

3 ret 1108 § ‘ anl$format_line(0,0,anirms$_errornone) 

; else 

: oR: 1138 $ anl$format_line(0,0,anirms$_errorcount,.error_count); 

; 607 1108 2! If this is a /CHECK or /STATISTICS report, we want the user to know 

; 608 1109 2! what happened. If the report is going to a file, then we better display 

: o” ES § ! a summary Line. 

> 611 1112 2 if (.anl$gb_mode eqlu anl$k_check or .anl$gb_mode eqlu anl$k_statistics) and 
, 66i2 1113 2 (not gener ee tae Fe ort or .report_to_file) then 
: tt ie § signal (anlfms$_errors,2, input_file_spec,.error_count); 

; oi? EY $ ! Now we can reset the error counter for the next file. 

; 617 1118 2 error_count = 0; 

> 619 1120 2 return; 

: 620 1121 2 

3; 6 Oa" 1122 1 end; 


0004 00000 ENTRY ANLSERROR COUNT, Save R2 ; 1098 
52 0000" CF 9E 00002 MOVAB ERROR_COURT, R2 : 
50 62 00 00007 MOVL ERROR_COUNT, RO ; 1103 
OF 12 Q000A BNEQ 1$ : 


ee 

RMSREPORT RMSREPORT = Handle Output for ANALYZE/RMS_FILE 16-Sep-1984 00:10:49 VAX-11 Bliss-32 v4.0 Page 28 
v04-000 ANLSPRROR_COUNT = Report Count of Errors ~ 14-Sep-1984 11: et :01 LANALYZ~ SRCIRMSREPORT., y 2:1 ’ (8) 
00000000G 8F DD p00 PUSHL #ANLRMS$_ERRORNONE 3 1104 

43 7C 00012 CLRQ - : 

FE3D ~=sCF 03 FB 00014 CALLS #3, ANLSFORMAT_LINE ; 

OF 11 90018 BRA 2$ : 
50 DD 0001B 1$ PUSHL RO 3 1106 

00000000G 8F bp B08 PUSHL #ANLRMS$_ERRORCOUNT : 

7E 7C 908 CLRQ ps Pp : 

FE2C CF 04 FB 00025 CALLS 4, ANL $F ORMAT LINE ; 
01 0000G CF 91 QO02A 2$: CMPB ANE S6B- ODE, #7 3; 1112 

07 13 CH BEQL 3 

04 0000G CF 91 00031 CMPB AL S6B_MODE. a4 3 

is is $0038 BNEQ : 
04 FEES C2 €9 00038 3$: BLBC GENERATING_REPORT, 4$ : 1113 

15 FC Ad €9 00030 BLBC _ REPORT_TO FILE, 5$ : 
62 DD 00041 4$: PUSHL ERROR_COURT 3 1114 

FEEC C2 9F 00043 PUSHAB INPUT_FILE_SPEC ; 

02 DD 00047 PUSHL 4&2 ; 

00000000G 8F DD 00049 PUSHL #ANLRMS$_ERRORS ; 

000000006 00 04 FB 0004F CALLS #4, LIBSSIGNAL 3 
62 04 00056 5$: CLRL ERROR_COUNT : 1118 
04 00058 RET 3: 1122 


; Routine Size: 89 bytes, Routine Base: $CODE$ + 037C 
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~V04-000 ANLSFORMAT_FLAGS = Format Flag Bits 12-86 dae 09388363 LANALYZ~5 eSRngRePORT 692: 1 : (8 
3 $33 1 ; } Zsbttl ‘ANLSFORMAT_FLAGS - Format Flag Bits’ 
3 625 1125 1 | Functional Description: 

: o¢6 1158 : 2 aoe is called to format the flags in a byte/word/longword 

: 658 1128 1 i oS 

> 629 1129 1 ! Formal Parameters: 

: 6350 1130 1! indent_level The level at which the introductory message is to 

>; 631 3) 3 3 , be indented. The flags are indented one more level. 

: 63 1132 1! intro_msg The introductory message. 

3; 63 itap 3 flags The flag bits. ; 

> 634 1134 1! flag_def A longword vector defining the flags. The zeroth 

>; 635 a7 (3 entry specifies the highest-numbered flag. The 

; 636 bP, ee remaining longwords contain the address of a counted 

; 637 57 63 string g ving the name of the flag. If the flag is 

: O38 1138 : undefined, the longword contains zero. 

: 640 1140 1! Implicit Inputs: 

: oe} 1403 : global data 

: 643 128 1 i Implicit Outputs: 

: eee be: : global data 

: 646 1146 i Returned Value: 

; : none 

> 648 11448 1! 
13 4 1183 ' Side Effects: 

: 651 1151 1 ie. 

s $32 1152 1 

> 653 1153 (1 

3 638 N12 $ global routine anl$format_flags(indent_level,intro_msg,flags,flag_def): novalue = begin 

: 656 1156 2 bind 

5 637 1157 2 flags_vector = flags: bitvector(], 

; O28 1138 § flag_def_vector = .flag_def: vectorl,long]; 

; 660 1160 2 local 

; 661 1161 2 i: long; 

; 662 1162 2 

; 663 1163 2 

2 re] V18e § ! Begin by printing the introductory message. 

: $06 1106 § anl$format_line(2,.indent_level,.intro_msg); 

; 668 1168 2 ! Now we we 4 through the flags and process each one that is defined. 

5 66 119° 2! We print the flag name, bit number, and current setting. 

; 671 1171 § incru i from 0 to .flag_def_vector([0] do ( 

3 672 116 3 f .flag_def_vettor£.i+1] nequ 0 then 

: Offs 1173 3 ant $format_line(0,.indent_level+1,anlrms$_flag, 

; on 17 3 ' .1,.flag_def_vectorl.i+1]>.flags_vectorl.i]); 

: 676 1176 2 ° 

3: 677 1177 § return; 

; 678 1178 

3; 679 1179 1 end; 


mM 3 
RMSREPORT RMSREPORT = Handle Output for 41: Mautemis FILE 16-Se 
v04-0 14-Se 


AX-11 Bliss-32 V4.0-7 Page 30 
ANLSFORMAT_FLAGS = Format Flag Bit (9) 


p~1984 90: 10:89 
p-1984 11:53:01 ANALYZ. SRCIRMSREPORT . 2 231 


0004 00000 .ENTRY ANLSFORMAT FLAGS Save R2 1154 
| 7E 04 AC 7D 00002 MOVQ INDENT_LEVEL, -(SP) 1166 

0¢ DD 00006 PUSHL He 

FDFO CF 03 FB 60008 CALLS #3, ANLSFORMAT_LINE 

52 D4 0000D CLRL I 1171 

29 11 0000F BRB $ 
50 10 BC42 DE 00011 1$: MOVAL  @FLAG_DEFCIJ, RO 1172 

| 04 AO D5 00016 TSTL. 4 (RO)™ 
1D 13 00019 BEQL 2 
7E oc AC 01 52 EF 0001B EXTZV I, #1, FLAGS_VECTOR, -(SP) 
04 AO DD 00021 PUSHL  4(RO) 

52 DD 00024 PUSHL | 

000000006 8F DD 00026 PUSHL #ANLRMS$ 
7E 04 AC 01 C1 0002C ADDL3 #1, INDERT tNEVEL. -(SP) 
7E 04 00031 CLRL. = = (SP) 
FDCS CF 06 FB 00033 CALLS #6, ANLSFORMAT_LINE 
52 D6 00038 2$: INCL I 
10 BC 52 D1 O003A 3$: CMPL 1, @FLAG_DEF 

. D1 18 0003E BLEQU§ 1% 
04 00040 RET 


; Routine Size: 65 bytes, Routine Base: S$CODE$ + 0305 
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v04-000 ANLSFORMAT_HEX = Format Hex Dump of Data 14-Sep-1984 11:55:01 ANALYZ.SRCIRMS 


<742 
REPORT .B32:1 (10) 


$3) 1190 : Rsbttl "ANLSFORMAT_HEX = Format Hex Dump of Data’ 
'e¢ 
68 1136 1 ! Functional Description: 
684 11835 1! hig routine is called to format a hex dump of some bytes. 
or? 118¢ : It includes the character representation of the bytes also. 
687 1186 1 ! Formal Parameters: ; ; 
688 yf 13 ndent_level The indentation level at which to place the dump. 
red + : data Address of descriptor of data to be dumped. 
691 1190 1! Implicit Inputs: 
25 1333 : global data 
694 1193 1! Implicit Outputs: 
$32 1198 ; global data 
697 1196 Returned Value: 
! none 
699 1198 1! 
Ae 1 : Side Effects: 
702 1201 1 ie- 
703 1202 1 
704 1203 1 : 
Ne 4 § global routine anl$format_hex(indent_level,data): novalue = begin 
707 1206 2 bind ; 
708 1207 2 data_dsc = .data: descriptor, 
444 1s § data_vector = .data_dsc(ptr]: vector(,byte]; 
711 1210 2 local 
712 1211 2 i: long, 
713 1212 2 arg_list: vector(20,long], 
ne ist? § count: long; 
716 1215 2 builtin 
717 1216 2 callg; 
716 1217 2 
719 1218 2 : : 
730 isl? § ! If the data is null, just quit. 
1s¢ \¢s) 2 if date, doct lon) eqlu 0 then 
return; 
724 \$6? 3 , ) : 
725 1224 : We begin by printing two heading Lines. The first shows the offsets 
re6 136? 2 ! of the bytes and the second is a line of dashes. 
728 1227 : anl$format_line(3,.indent_level,anlrms$_hexheading!); 
444 13s8 § anl$format_line(0,.indent_level,anirms$_hexheading2); 
731 158 2 ! We will be builing argument Lists to ANLSFORMAT LINE. It will wiways 
3 S33 § ! include widow control, indentation level, and the message code. 
734 1533 2 arg_list{1] = 0; 
735 1234 arg_list $4 = ,indent_level; 
aS 1$te arg_list(3] = anirms$_hexdata; 
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| RMSREPORT RMSREPORT = Handle Output for ANALYZE/RMS_FILE 16-Sep-1984 00:1 AX-11 Bliss-32 V van in 32 
_ v04-000 ANLSFORMAT_HEX = Format Hex Dump of Data ~ 14-Sep-1984 11:5 04 ANALYZ.S ReaRM MSR HpoRT. B32;1 (10) 
13 rs 1537 : Now we go into a loop, once through for each 8 bytes to be formatted. 
; 740 1678 i=0; . 
3 ry] 1¢¢9 while .i lssu .data_dscClen] do ( 
ls sh 1gt6 ; : Calculate the number of bytes that will go on this Line. 
13 745 1244 3 count = minu(.data_dscClenJ-.i,8); 
; 746 1245 3 
3 747 1246 3 : Next in the argument List we need a count of the Ia saben to skip 
(3 748 1247 3 i so the bytes will be Lined up from right to left 
3 «749 12468 3 
13 750 1249 3 arg_list(4] = (8 = .count) * 3; 
Pee) 1250 3 : 
is £2 1251 3 : Now we need the count itself. 
13. fos 1252 3 ' 
: 6 teo7 2 arg_list(5] = .count; 
s 9° 1254 3 
3; 26 1255 3 ! Now we loop through 8 (or Less) bytes and put them in the 
is for 1256 3 i argument List (backwards, of course). 
: 758 1257 3 
; 69 1258 4 decr j from .count-1 to 0 do ‘ 
; 760 1259 4 arg_ Listlé+, ‘7 = doth. seclonttts 
; 761 1260 4 increment (i); 
3; 762 1261 3 3 
3 763 1262 3 
13 764 1263 : ! Next we have the byte offset. 
is 765 1264 ; ; 
3 766 1265 3 arg_list(6+.count] = .i = .count; 
s 767 1266 3 
> 768 1267 3 : Now we have to add to the argument List the byte count and a 
: 769 1268 3 i pointer to the byte string. 
> 70 1269 3 
: 771 1270 3 arg_list(7+.count] = .count; 
s 72 1271 3 arg_list(8+.count] = data_ vectorl.i = .count): 
: 773 1272 3 
3 «774 1273 3 ! Finally, fill in the argument count. 
3; 775 1274 3 
: 776 1275 3 arg_list(0] = 8 + .count; 
: 777 1276 3 
; 778 1277 3 ! Now we can print the hex data. 
; 779 1278 3 ‘ , 
: 780 1279 3 callg(arg_list,anl$format_Lline); 
; ey 1280 2); 
s fee 1281 2 
| 3 783 1282 2 return; 
(3 784 1283 2 
|; 785 1284 1 end; 
| 
| 
003C 00000 ENTRY ANLSFORMAT_HEX, Save R2,R3,R4,R5 : 1204 
55 FDB6 CF 9Y9E 00002 MOVAB ANLSFORMAT-LINE, RS : 
5E BO AE YE 00007 MOVAB -80(SP), SP : 
54 08 AC DO 00008 MOVL _——DATA, Pre : 1207 
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RMSREPORT RMSREPORT = Handle Output for ANALYZE/RMS_FILE 16-Sep-1984 00:10:49 Ax-11 nn? ss-32 V4.0-74 Page 33 
v04-000 ANLSFORMAT_HEX = Format Hex Dump of Data ~ 1228 08- 138 11: 4g: :01 ANALYZ.S Rei MSREPORT .B32;1 " (10) 
$4 83 0000F TSTW (R4) : 1221 

3 13 00011 BEQL 2$ ; 
00000000G 8F DD a aE PUSHL tA HE XHEADING1 : 1227 

04 at DD 00019 PUSHL INDENT _LEVEL ; 

03 DD 0001C PUSHL : 

65 03 FB OOO1E CALLS 43, An $PORMAT LINE : 
00000000G 8F DD 00021 PUSHL oo ay HE XHEADING2 : 1228 

04 AC DD 00027 PUSHL  INDENT_LEVEL § 

7E D4 0002A CLRL -(SP : 

65 03 FB 0002C CALLS #3, AML SP ORRAT LINE : 
04 AE D4 0002F CLRL ARG_LIST 3 1233 
08 AE 04 AC DO 00036 MOVL INDENT + LEVEL, ARG_LIST+8 : 1234 
OC AE 00000000G 8F D0 0003 MOVL FANLRMSS. HEXDATA, ARG_LIST+#12 : 1235 
53 D4 0003F CLRL I 3: 1239 
53 64 10 00 ED 00041 1$ CMPZ2v #0, #16, (R4), I : 1240 

4F 1B 00046 2$ BLEQU 3 
50 64 3C 00048 MOVZWL (R4), RO + 1244 

50 53 C2 00048 SUBL2. 1, RO : 

08 50 D1 0004E CMPL RO, #8 : 

03 18 00051 BLEQU F 

50 08 dO 00053 MOVL He i 3 

52 50 DO 00056 3$: MOVL RO, COU Fs 
50 F8 <A2 Y9E 00059 MOVAB -8( Rene NRO 3; 1249 

50 03 C4 0005D MULL2 +$ RO. ; 

10 AE 50 CE 00060 MNEGL RO, ARG_LIST+16 é 
14 AE 52 DO 00064 MOVL COUNT. “IG. LIST+20 : 1253 
50 52 DO 00068 MOVL COUNT. J : 1258 

09 11 00068 BRB 5 3 
18 AE4O 04 B443 9A 0006D 4$: MOVZBL @4(R4)CIJ, ARG_LIST+24(J] : 1259 
53 D6 00074 INCL I : 1260 
F4 50 F4 00076 5$: SOBGEQ ds ut : 1258 
50 53 52 ¢3 00079 SUBL3 I, RO : 1265 

18 AE42 50 DO 0007D MOVL ROL ath {1ST +2eccouny 3 
1C AE42 52 DO 00082 MOVL COUNT ARG_LIST+28C COUNT] : 1270 
20 AES2 04 B440 9E 00087 MOVAB @4(R4) CROJ. ARG_ oo ets SoCCOUNTI 3 1271 
6E 08 <A2 9E OOOBE MOVAB 8(R2), LI : 1275 
65 6— FA 00092 CALLG ARG_ list’ Oa SF ORMAT _LINE : 1279 
AA 11 00095 BRB 1$ ~ : 1240 
04 00097 6$: RET + 1284 


|; Routine Size: 152 bytes, Routine Base: $CODE$ + 0416 
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RMSREPORT RMSREPORT = Handle Output for ANALYZE/RMS_FILE 16-Sep-1984 90: 19:49 VAX=-11 Bliss-32 V4.0-74 Page 34 
v04-000 ANLSFORMAT_PROTECTION_MASK = Format Protection 14-Sep-1984 11:53:01 CANALYZ.S Rei RMSREP ORT.B52;1 (11) 

rer 138) ) ¥s Bsbttl *ANLSFORMAT_PROTECTION_MASK = Format Protection Mask’ 

789 1589 1} “Functtenel Description: 

790 1288 1! This routine is called to format the standard 16-bit system 

791 1289 1! protection mask. 

4) 1290 1: 

79 1291 1 ! Formal Parameters: 

794 1636 1! indent_level Indentation level in the report. 

795 1293 1! message Status code for message to use. 

79 12946 1! protection Protection mask. 

797 1295 1! 

798 1698 1 | Implicit Inputs: 

799 1297 1! global data 

800 1298 1! 

801 1299 1 ! Implicit Outputs: 

802 1300 1! global data 

803 1301 1! 

804 1302 1 ' Returned Value: 

805 1303 1! 

806 1304 1! 

807 1305 1 ! Side Effects: 

808 1306 1! 

809 1307 1 I- 

810 1308 1 

811 1309 1 : 4 

ois 131? 3 global routine anl$format_protection_mask(indent_level ,message,protection): novalue = begin 

814 1312 2 own 

815 1313 2 protection_table: vector[16, tenes initial ( 

816 1314 2 uplit byte (Zascic "RWED'), 

817 1315 2 uplit byte (Zascic ‘WED'), 

818 1316 2 uplit byte (Zascic ‘RED'), 

819 1317 2 uplit byte (Z%ascic ‘ED'), 

820 1318 2 uplit byte (Zascic 'RwD'), 

821 1319 2 uplit byte (Zascic ‘WD'), 

822 1320 2 uplit byte (Z%ascic ‘RD"), 

823 1321 2 uplit byte (%ascic *D*), 

824 1322 2 uplit byte (Zascic ‘RWE'), 

825 1323 2 uplit byte (Zascic ‘WE'), 

826 1324 2 uplit byte (Zascic ‘RE'), 

827 1325 2 uplit byte (Zascic 'E'), 

828 1326 2 uplit byte (Zascic ‘Rw'), 

829 1327 2 uplit byte (Zascic ‘W'), 

830 1328 § uplit byte (Zascic ‘R'), 

831 1329 uplit byte (Zascic '")); 

832 1330 2 

833 1331 2 : : ; 

See 1386 .* ! Simply format the message using the above protection code table. 

836 1334 § anl$format_line(0,.indent_level,.message,.protection_table{.protection<0, te 0>], 

837 1335 -orotection_table oprovecs [ents of 01. 

838 1336 2 -protection_table -protection<8 

839 1337 2 -protection_table paket ret, Ol i, wets 

840 1338 § 

841 1339 return 

842 1340 2 

843 1341 1 end; 
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RMSREPORT 
v04=000 


ANLSFORMAT_PROTECTION 


44 45 57 2s 04 
4 45 5 83 
44 45 é 0 
44 4 6 

44 57 2s 0 
44 57 Qe 

44 52 02 

44 01 
45 57 52 03 
45 57 02 

45 52 02 

45 01 

57 52 02 

5? 01 
eg 


RMSREPORT = Handle ON RAS for ANALYZE/RMS_FIL 
ASK = Format ProteCctio 


_00000000°* 00000000" 00000000* 00000000" 00000000" 00000000 


| 00000000° 00000000" 00000000* 00000000° 00000000' 00000000° 
00000000* 00000000*° 00000000* 00000000’ 


| 


50 
50 
50 
50 


Routine Size: 


OD AC 
OD AC 
oc AC 
oc AC 


55 bytes, 


7E 
FCEE CF 


Routine Base: 


0004 

0000" CF 9E 
04 EF 

6240 0D 

0O EF 

6240 OD 

04 EF 

6240 0D 

00 EF 

6240 bd 

046 ac 70 
7E 04 

07 FB 

04 


SCODES + O4AE 


pope fo lolelolololoeloloeloielololo) 
NVNOM@®@ OLS romOown—O oo 


00685 
00688 


006A0 
00688 


OOOCOCOCOCOCOCOOoOOCOO 
foleleleleloloelololeolelololo) 
ole loleleleleoleoleoleleleleolo) 
WWRPoNONR eS | |S OO0O 
P—- *WOrnmOCo9o NNO 


om 
~_— 
som 
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=3e0- 130% 00 19 49 AX-11 Bliss-32 v4.0-74 
-$ep-1984 11:53:01 ANALYZ’S afin RMSREP ORT.B352;1 
-PSECT S$PLITS,NOWRT,NOEXE,2 
P.AAO: .ASCII <4>\RWED\ 
P.AAP: .ASCII <3>\WED\ 
P.AAQ: .ASCII <3>\RED\ 
P.AAR: .ASCII <2>\ED\ 
P.AAS: .ASCII <35>\RWD\ 
P.AAT: .ASCII <2>\WD\ 
P.AAU: .ASCII <2>\RD\ 
P.AAV: .ASCII <1>\D\ 
P.AAW: .ASCII <3>\RWE\ 
P.AAX: .ASCII <2>\WE\ 
P.AAY: .ASCII <2>\RE\ 
P.AAZ: .ASCII <1>\E\ 
P.ABA: .ASCII <2>\RW\ 
P.ABB: .ASCII <1>\W\ 
P.ABC: .ASCII <1>\R\ 
P.ABD: .ASCII <0> 
-PSECT S$OWNS$,NOEXE,2 
-—BLKB 3 
PROTECTION TABLE: 


ADDR ae -AAO, P.AAP, P.AAQ, P.AAR, P.AA 


AT, P.AAU, P.AA 
P.AAZ, P.ABA, P.ABB, 


S$CODES,NOWRT,2 


Ss. 
V, 5° AAW, 4 AAX, P. AAY, 
P.ABC, P.ABD 


ANLSFORMAT_PROTECTION_MASK, Save R2 


PROTECTION TABLE 


#0, # TECT 
PROTECTION TABLECR 
INDENT LEVEL, =(SP) 


RO} 


($ 
#7, ANLSFORMAT_LINE 
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1310 
1337 
1336 
1335 
1334 


1341 
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RMSREPORT RMSREPORT = Handle Output for ANALYZE/RMS_FILE 16-Sep-1984 00:10:49 AX-11 Bliss-32 V4.0-74 P 
v04=000 ANLSFORMAT_FILE ATTRIBUTES = Format File Attrib 14-Sep-1984 11:53:01  LANALYZ-SRCIRMSREPORT B32: 1 age 38 
Rei : ry : Rsbttl "ANLSFORMAT_FILE_ATTRIBUTES = Format File Attribute Area’ 
847 1344 1 ! Functional Description: 
848 1345 1! his routine is called to format the user file attribute area, which 
849 1346 1! is assumed to contain RMS file attributes. We don't check the 
gee : rd | : attributes. 
832 1349 ! Formal Parameters: 
: none 
854 1351 1! 
°55 1326 1! Implicit Inputs: 
UBS Gt ae | DES calle 
858 1355 1! Implicit Outputs: 
$28 1328 : global data 
861 1358 : Returned Value: 
: none 
863 1360 1! 
4 130) . Side Effects: 
866 1363 1 i-- 
867 1364 1 
868 1365 1 
534 1306 $ global routine anl$format_file_attributes: novalue = begin 
871 1368 2 
a7§ 1393 § ! We start with a nice little header. 
874 1371 2 anl$format_line(3,0,anlrms$_fileattr); 
are 1378 § anl$format_skip(0); 
1 BT 2! The first data printed is the file organization. 
879 1376 : lies sitet einen. sitinal «hyphen gent Sol fort forty. fiteorg) of set 
880 1377 3 fat$c_sequential]: “uplit byte (Zascic ‘sequential"); 
881 1378 3 Cfat$c_relative): uplit byte (Zascic ‘relative'); 
eae Ht 5 5 Cot HS, mamenees: uplit byte (%ascic ‘indexed'); 
es)); 
884 1381 § 
1H 1386 ! Now we include the record format and attributes. 
887 1384 anl$format_line(0,1,anirms$_recfmt 
888 1385 (selectoneu sanisql_tatCtar$v rtypel of set ; 
889 1386 fat$c_undefined): uplit byte (Zascic ‘undefined"); 
890 1387 3 fat$c_fixed): uplit byte (Zascic ‘fixed"); 
891 1388 3 fat$c_variable): uplit byte (Zascic ‘variable'); ; 
892 1389 3 fat$c_vfcl: uplit byte (Zascic ‘variable-with-fixed-control"); 
893 1390 ; fat$c_stream): uplit byte (Zascic ‘stream'); 
894 1391 fat$c_streamif): uplit byte (Zascic ‘stream-Lf'); 
Boe 1336 3 $ Parse streamer : uplit byte (Zascic ‘stream-CR"); 
es)); 
897 1394 ; : 
898 1395 anl$format_Line(0,1,anirms$_recattr, (if .anl$gl_fatCfat$v_nospan) then uplit byte (Zascic ‘no-span") 
899 1396 § se Tel uplit byte (Zascic *")), | 
900 1397 (if ont Fol fact fatev. inpl tedce) then uplit byte (Zascic ‘carriage-return') 
901 1398 3 else if .anl$gl_fatlfat$v_fortrancc] then uplit byte (Zascic ‘fortran') 


4 
RMSREPORT RMSREPORT = Handle putput for ANALYZE/RMS_FILE 1S-sep-19 4 00:10: 
v04-000 RIB 
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6C 


20 68 74 69 77 
6C 6F 72 


72 78 74 65 72 


ANLSFORMAT_FILE_ATT 


= POMIPOPONo Po NON Non nononononononoponononononony 


TES = Format File Attrib 14-Sep-1984 11:53: 


else if .anl$gl_fatlfat$v_pri 
else 


! Now the maximum record size and the longest record size. 


49 oe Bliss-32 V4.0-74 
01 ANALYZ.SRCIJRMSREPORT .832;1 


ntcc] then uplit byte (Zascic ae? 


uplit byte (%ascic 


anl$format_lin (0.1 -ant russ saxrecsize, .anlSol_fatt fatSu_maxrecy) ; 


if .anl$gl_fatlfat$v_fileorg] eqlu fat 


c_sequential or ,anl$gl_fatlfat$v_rtype] eqlu fat$c_fixed then 


anT$format_line(0,1,anlrms$_longrec,.anl$gl_fatlfat$w_rsizel); 


! Now the header size for variable with fixed control. 


if .anl$gl_fatCfat$v_rtype) eqlu fat$c_vfc then 
ant$format. Line tb! 


-anirms$_ctlsize,.anl$gl_fatlfat$b_vfcsize]); 


: Now the number of blocks allocated, extend quantity, and the end-of-file 


! information. 


anl$format_lLine(0,1,anirms$_alloc,.ani$gl_fatCfat$l_hiblk] 
if .anl$gl_fatlfat$v_fileorg) eqlu fat$c_Sequential the 


n 
anT$format_line(0,1,anlrms$_eof,.anl$gl_fatCfat$l_efblk],.anl$gl_fatlfat$w_ffbyte]); 


! Now the bucket size, unless it's a sequential file. 


if .anl$gl_fatCfat$v_fileorg] eqlu fat$c_relative or .anl$gl_f 


anl$format_line(0,1,anlrms$_bucketsize,.anl$gl_fat 
! Finally, display the global buffer count. 


,-anl$gl_fatlfat$w_defext]); 


_fatlf 
fat$b_bktsize]); 


anl$format_line(0,1,anlrms$_globalbufs,.anl$gl_fatCfat$w_gbc]); 


return; 


end; 


PSECT 

69 74 6€ 65 75 71 65 73 OA 00098 P.ABE: .ASCII 

65 76 69 74 61 6C 65 72 U8 QOQOA3 P.ABF: .ASCII 

64 65 65 64 6€ 69 07 QOOAC P.ABG: .ASCII 

65 6€ 69 66 65 64 6€ 75 OF Q00B4 P.ABH: .ASCII 

64 65 78 69 66 05 QOOBE P.ABI: .ASCII 

65 6C 62 61 69 us 61 76 08 booce P.ABJ: .ASCII 

65 6C 62 61 69 72 61 76 1B QOOCD P.ABK: .ASCII 
6—E 6F 635 2D 64 65 78 69 66 Banos 

6D 61 65 72 74 73 06 OOOE9 P.ABL: .ASCII 

4C 2D 6D 61 65 72 74 73 09 QOOFO P.ABM: .ASCII 

43 2D 6D 61 65 72 74 73 09 OQOOFA P.ABN: .ASCII 

6— 61 70 73 2D 6F 6E O07 00104 P.ABO: .ASCII 

| QO10C P.ABP: .ASCII 

65 67 61 69 72 72 61 63 or Bate P.ABQ: .ASCII 

6— 61 72 74 72 6F 66 89 Q011D P.ABR: .ASCII 

74 6€ 69 72 70 Q5 00125 P.ABS: .ASCII 

00 0012B P.ABT: .ASCII 


$PLITS,NOWRT ,NOEXE ,2 


<10>\sequential\ 

<8>\relative\ 

<7>\indexed\ 

<9>\undef ined\ 

<5>\fixed\ 

<8>\variable\ | : 
<27>\variable-with-fixed-control\ 


<6>\stream\ 
<9>\stream-LF\ 
<9>\stream-CR\ 
cp \eeragem 

< 


> 
<15>\carriage-return\ 


<7>\fortran\ 
<5>\print\ 
<0> 


Page 37 


at$v_fileorg] eqlu fat$c_indexed then 
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RMSREPORT RMSREPORT = Handle Output for ANALYZE/RMS_ FILE 16-Sep-1984 00:10:49 AX-11 Bliss-32 V4.0-74 Page 38 
v04-000 ANLSFORMAT_FILE ATTRIBUTES = Format File Attrib 1o-g08- 138% 10:18:33 YANALYZ SRC IRMEREPORT.B 2:1 . a3 
.PSECT S$CODES,NOWRT,2 

001¢ 00000 .ENTRY ANLSFORMAT_FILE_ATTRIBUTES, Save R2,R3,R4 ; 1366 

54 00006 CF 9E 9000¢ MOVAB ANLS$GL_FAT> ; 

53 FCE2 CF 9E 0000 MOVAB ANLSFORMAT_LINE, R3 : 

52 0000" CF 9E 0000C MOVAB P.ABE, : 
000000006 §8F DD 00011 PUSHL #ANLRMS$_FILEATTR + 1371 

7 03 7D 00017 mova. s-_ «#3, = : 

6 03 FB OOOIA CALLS #3, ANLSFORMAT_LINE é 
7E 04 0001D CLRL. 0s = (SP) + 1372 

OOF6 C3 01 FB BROT CALLS #1, ANLSFORMAT_ SKIP : 
51 00 B4 04 04 EF 00024 EXTZV 44, 4, @ANLSGC_FAT, R1 : 1376 
05 12 0002A BNEQ + 1377 

50 62 9E 0002C MOVAB P.ABE, RO ; 

19 11 0002F BRB 4$ a 
01 51 D1 00031 18: CMPL sR, #1 + 1378 

06 12 00034 BNEO : 

50 0B A2 9E 00036 MOVAB P.ABF, RO a 

OE 11 0003A BRB 4$ ; 
02 51 D1 0003C 28: CMPL = R1, #2 + 1379 

05 13 0003F BEQL $ : 

7E 01 CE 00041 MNEGL #1, -(SP) : 

06 11 00044 BRB g : 

50 14 A2 9E 00046 3$: MOVAB P.ABG, RO : 

50 DD O0004A 4$: PUSHL R : 
000000006 8F DD 0004C 5$: PUSHL  #ANLRMS$_FILEORG : 1376 

01 DD 00052 PUSHL #1 : 

7E D4 00054 CLRL. = (SP) : 

63 04 FB 00056 CALLS #4, ANLSFORMAT_LINE é 
50 00 B4 04 00 EF 00059 EXTZ2v #0, #4, @ANLS$GC_FAT, RO + 1385 
06 12 0005F BNEQ : 1386 

51 ic A2 9E 00061 MOVAB P.ABH, R1 2 

35 11 00065 BRB 1i$ : 
01 50 D1 00067 68: CMPL ~—s RO, #1 : 1387 

06 12 0006A BNEQ 7$ : 

51 26 A2 9E 0006C MOVAB P.ABI, R1 : 

2A 11 00070 BRB 1i$ ; 
02 50 D1 90072 7$: CMPL =e RO, #2 : 1388 

06 12 0007 BNEQ  8$ ; 

51 2c A2 9E 00077 MOVAB P.ABJ, R1 : 

1F 11 00078 BRB 1i$ ; 
03 50 01 00070 8$: CMPL sO, #3 : 1389 

06 12 00080 BNEQ  9$ : 

51 35 A2 99E 00082 MOVAB P.ABK, R1 : 

14 11 00086 BRB 1i$ ; 
04 50 D1 00088 9$: CMPL =e RO, #4 : 1390 

06 12 00088 BNEQ 10% ; 

51 51 A2 9€ 0008D MOVAB P.ABL, R1 F 

09 11 00091 BRB 1i$ : 
05 50 D1 00093 10$ CMPL = RO, #5 > 1391 

08 12 00096 BNEQ  12$ ; 

51 58 A2 9E 00098 MOVAB P.ABM, R1 ® 

51 0D sib 11$: PUSHL R1 : 

10 11 0009E BRB 14$ ; 
06 50 01 000A0 128:  CMPL RO, #6 > 1392 


4 
RMSREPORT RMSREPORT = Handle Output for ANALYZE/RMS_FILE 1hese -1984 00:10:49 AxX-11 Bliss<-32 V4.0-74 Page 39 
yO n009 ANLSFORMAT_FILE ATTRIBUTES - Format File Attrib 12-8 08- 1 3be of 33:93 ANALYZ.SRCJRMSREPORT.B32; 1 . a3 
5 13 000A3 BEQL 138 : 
7E 1 CE 0005 MNEGL #1, =(SP) : 
06 11 O000A8 BRB 14§ : 
50 62 A2 9E BODAA 13$: MOVAB P.ABN, RO 3 
50 DD OOOAE PUSHL RO : 
00000000G 8F DD OOOBO 148: PUSHL #ANLRMSS_RECFMT 3: 1384 
01 DD 00086 PUSHL #1 : 
7E 04 00088 CLRL. = = (SP) : 
63 04 FB OOOBA CALLS #4, ANLSFORMAT_LINE : 
50 64 DO 000BD MOVL ANLS$GL_FAT, RO + 1397 
06 01 AO 01 €1 000C0 BC #1, 1(RO), 15$ : 
51 75 A2 9E 000C5 MOVAB P.ABQ, R1 : 
1¢ 11 0009 RB 18$ : 
07 01 AO £9 000¢B 15$: BLBC  1(RO), 16$ : 1398 
51 0085 C2 9E OOOCF MOVAB P.ABR, R1 : 
11 11 00004 BRB 18$ : 
07 01 Ad 02 £1 00006 16$: BBC #2, 1(RO), 17$ + 1399 
51 008D C2 9E 000DB MOVAB P.ABS, R1 : 
05 11 000E0 BRB 18$ : 
51 0093 C2 9E O00E2 17$ MOVAB P.ABT, R1 : 1400 
51 DD OOOE7 18$ PUSHL R1 : 1398 
06 01 Ad 03 €1 OO0E9 BBC #3, 1(RO), 19 + 1395 
50 6C A2 SE OODEE MOVAB P.ABO, RO : 
04 11 000F2 BRB 20 : 
50 74 A2 9E OO0F4 19$:  MOVAB P.ABP, RO + 13% 
50 DD OOOF8 20$:  PUSHL R : 
000000006 8F DD OOOFA PUSHL #ANLRMS$_RECATTR + 1395 
01 DD 00100 PUSHL #1 : 
7E D4 00102 CLRL. = (SP) : 
| 63 05 FB 00104 CALLS #5, ANLSFORMAT_LINE : 
50 64 pO 00107 MOVL § ANLSGL_FAT, RO + 1404 
7E 10 AO 3C OO10A MOVZWL 16(RO),> =(SP) : 
000000006 8F DD 0010E PUSHL #ANLRMS$_MAXRECSIZE F 
01 DD 00114 PUSHL #1 : 
7E D4 00116 CLRL. = (SP) : 
63 04 FB 00118 CALLS #4, ANLSFORMAT_LINE b 
50 64 DO 0011B MOVL ANLSGL_FAT, RO + 1405 
FO BF 60 93 OO11E BITB (RO), #240 : 
07 13 00122 BEQL : 
| 01 60 04 00 ED 00124 CMP27v #0, #4, (RO), #1 : 
| 11. 12 00129 BNEQ 22$ F 
7E 02 AO 3C 0012B 21$:  MOVZWL 2(RO), -(SP) + 1406 
000000006 8F DD 0012F PUSHL #ANLRMS$_LONGREC : 
01 DD 00135 PUSHL #1 : 
| 7E D4 00137 CLRL. = (SP) F 
| 04 FB 00139 CALLS #4, ANLSFORMAT_LINE : 
50 64 DO 0013C 22$:  MOVL  $ANLSGL_FAT, RO : 1410 
03 60 04 00 ED 0013F CMPZ7V #0, #47 (ROD, #3 : 
11 12 00144 BNEQ 3 : 
7E OF AO 9A 00146 MOVZBL 15(RO), (SP) > 1411 
000000006 8F DD O014A USHL M#ANLRMSS_CTLSIZE ; 
01 DD 00150 PUSHL #1 ; 
| 7E 04 00152 CLRL. = (SP) : 
63 04 FB 00154 CALLS #4, ANLSFORMAT_LINE 
50 64 b0 00157 238:  MOVL  ANLSGL_FAT, RO > 1416 
7E 12 Ad 3C OO15A MOV2WL 18(RO)> -(SP) : 
| 04 AO DD 0015E PUSHL 4 (RO) : 


RMSREPORT 
v04-000 


Be Be Be ee 


01 
02 


: Routine Size: 


935 
936 


Name 
SOWNS 


SPLITS 
S$CODES 


File 


J 4 
RMSREPORT = Handle Out aby ut for ANALYZE/RMS_FILE 16-Se 
ANLSFORMAT_FILE_ATTRIBUTES = Format File Attrib 14-Se 
00000000G 8F DD 00161 
1 DD 00167 
D4 00169 
63 05 FB 00168 
50 64 00 i 
FO OsdBF 60 93 00171 
14 12 00175 
7E 0c AO 3C 00177 
08 AO ODD 0017B 
00000000G 8F DD OOI7E 
01 DD 00184 
43 D4 00186 
63 05 FB 00188 
50 64 D0 00188 24$: 
60 04 04 ED Ba 18s 
07 13 0019 
60 04 04 ED 00195 
11. 12 OO19A 
7E OE AO 9A 0019C 258: 
00000000G 8F DD 001A0 
01 DD 001A6 
7E D4 OO1A8 
63 04 FB OOTAA 
50 64 DO OO1AD 268: 
7E 14 AQ 3C 00180 
00000000G 8F DD 001B4 
01 DD OO1BA 
7E D4 0018C 
63 04 FB 001BE 
04 001C1 
450 bytes, Routine Base: $CODE$S + 04E5 
1432 (1 
1433 0 end eludom 
PSECT SUMMARY 
Bytes Attributes 
1736 NOVEC, WRT, RD ,NOEXE,NOSHR, 
300 NOVEC, *NOWRT. RD ,NOEXE,NOSHR, 
1703 NOVEC,NOWRT, RD, EXE,NOSHR, 
Library Statistics 
eeeceecn Sy mbols ecesecece 
Total based Percent 


~1984 49 
pry oRe $9i59i01 


~EXTRN 


Pages 
Mapped 


REL, IC ,ALIGN(2) 
REL, CON,NOPIC,ALIGN(2) 
REL, CON,NOPIC,ALIGN(2) 


Ax-11 BLi iss -32 v4.0 
ANALYZ. SRC} RMSREPORT. 5 2:1 


_ te. ALLOC 
(SP) 
#5, et A eg LINE 


ANLSGL 
(RO), We 20" 


24$ 
-(SP) 


12(RO), 
8(RO) 
#ANLRMSS_EOF 


-(SP) 

#5, ANLSFORMAT_LINE 

ANLSGL | FAT RO", 

#4, #47 (ROD, # 

Wa, #4, (RO), #2 

26$ 

14(RO), =(SP) 

HANLRNSS BUCKETSIZE 
-(SP) 

#4, ANLSFORMAT LINE 

ANE SGL FAT RO™ 


SP) 
#ANLRMSS_ GLOBALBUF S 


-(SP) 
#4, ANLSFORMAT_LINE 


LIBSSIGNAL 


Processing 
Time 


reer 40 


Pee Se Ge Be Be Se Fe Be Be Be Fe Fe Ge Fe Fe Se Fe Se Ge Se Se Fe Fe Be Fe Fe Se Be Fe 


(12) 


1417 


1418 


1422 


1423 


1427 


; 1431 


te 8 ol RMSREPORT = Handle Out py ut for Baan tes 14 phi rig 16-Sep-1984 90:10:49 Ax-11 Bliss-32 V mee 

v04= ANLSFORMAT_FILE_ATTRIBUTES = Format File Attrib 14-Sep-1984 11:53:01 ANALYZ.SRC RAEREP ORT. B32;1 

: .$255$DUA28:CSYSLIBILIB.L32;1 18619 84 0 1000 00:01.8 

; COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RMSREPORT/OBJ=OBJ$:RMSREPORT MSRC$:RMSREPORT/UPDATE=(ENH$:RMSREPORT) 


; Size: 1703 code + 2036 data bytes 
: Run Time. 00:34. 

; Elapsed Time: 01:49.7 

3: Lines/CPU Min: 2507 

3 Lexemes/CPU-Min: 21226 

: — Used: 264 pages 

7 a 


; Compilation Complete 
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